home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / TURTLE.C < prev   
Encoding:
C/C++ Source or Header  |  1985-11-20  |  1.3 KB  |  89 lines
  1.  
  2. /* turtle.c - Stuff to handle turtle graphics calls.  */
  3.  
  4. #include <stdio.h>
  5. #include "pogo.h"
  6.  
  7. #define XMAX 320
  8. #define YMAX 200
  9. #define XCEN (XMAX/2)
  10. #define YCEN (YMAX/2)
  11. #define PI 3.1415
  12. #define TWOPI (PI*2)
  13.  
  14. double turtlepos[2];    /* position in *8 coordinates */
  15. int ipos[2] = {XCEN, YCEN};        /* position in screen coordinates */
  16. int drawit = 1;
  17. int tcolor = 15;
  18. double tangle = -PI/2;    /* point up to start */
  19.  
  20. penup()
  21. {
  22. drawit = 0;
  23. }
  24.  
  25. pendown()
  26. {
  27. drawit = 1;
  28. }
  29.  
  30. left(p)
  31. union pt_int *p;
  32. {
  33. double val;
  34.  
  35. val = p[-1].i;
  36. tangle += val*TWOPI/360;
  37. }
  38.  
  39. right(p)
  40. union pt_int *p;
  41. {
  42. double val;
  43.  
  44. val = p[-1].i;
  45. tangle -= val*TWOPI/360;
  46. }
  47.  
  48. pencolor(p)
  49. union pt_int *p;
  50. {
  51. tcolor = p[-1].i;
  52. }
  53.  
  54. extern double sin(), cos();
  55.  
  56. forward(p)
  57. union pt_int *p;
  58. {
  59. int ixy[2];
  60. int xy[2];
  61. union pt_int line_p[5];
  62.  
  63. double amount;
  64.  
  65. amount = p[-1].i;    /* get argument and float it */
  66. turtlepos[0] += cos(tangle)*amount;
  67. turtlepos[1] += sin(tangle)*amount;
  68. ixy[0] = turtlepos[0];
  69. line_p[1].i = ixy[0] += XCEN;
  70. ixy[1] = turtlepos[1];
  71. line_p[2].i = ixy[1] += YCEN;
  72. if (drawit)
  73.     {
  74.     line_p[3].i = ipos[0];
  75.     line_p[4].i = ipos[1];
  76.     line_p[0].i = tcolor;
  77.     pline(line_p+5);
  78.     }
  79. ipos[0] = ixy[0];
  80. ipos[1] = ixy[1];
  81. }
  82.  
  83. reverse(p)
  84. union pt_int *p;
  85. {
  86. p[-1].i = -p[-1].i;
  87. forward(p);
  88. }
  89.